home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 1.toast / Sample Code / Interapplication Comm / 7Edit / Source / SVAEGetDataSize.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-09-28  |  4.5 KB  |  172 lines  |  [TEXT/CWIE]
  1. /*
  2.     File:        SVAEGetDataSize.c
  3.  
  4.     Contains:    
  5.  
  6.     Written by: Original version by Jon Lansdell and Nigel Humphreys.
  7.                 3.1 updates by Greg Sutton.
  8.  
  9.     Copyright:    Copyright © 1995-1999 by Apple Computer, Inc., All Rights Reserved.
  10.  
  11.                 You may incorporate this Apple sample source code into your program(s) without
  12.                 restriction. This Apple sample source code has been provided "AS IS" and the
  13.                 responsibility for its operation is yours. You are not permitted to redistribute
  14.                 this Apple sample source code as "Apple sample source code" after having made
  15.                 changes. If you're going to re-distribute the source, we require that you make
  16.                 it clear in the source that the code was descended from Apple sample source
  17.                 code, but that you've made changes.
  18.  
  19.     Change History (most recent first):
  20.                 7/20/1999    Karl Groethe    Updated for Metrowerks Codewarror Pro 2.1
  21.                 
  22.  
  23. */
  24.  
  25. #include "SVAEGetDataSize.h"
  26.  
  27. #include "SVEditAEUtils.h"
  28.  
  29. // -----------------------------------------------------------------------
  30. //        Name:             DoGetDataSize
  31. //        Purpose:        Handles the GetDataSize AppleEvent.
  32. // -----------------------------------------------------------------------
  33.  
  34. pascal OSErr    DoGetDataSize(const AppleEvent    *theAppleEvent,
  35.                                     AppleEvent    *reply,
  36.                                     long        handlerRefCon)
  37. { 
  38. #pragma unused (handlerRefCon)
  39.  
  40.     AEDesc        directObj = {typeNull, NULL},
  41.                 result = {typeNull, NULL};
  42.     Size          actualSize;
  43.     DescType      returnedType;
  44.     DescType      reqType;
  45.     OSErr         err;
  46.     
  47.         // pick up the direct object, which is the object whose data is to be sized
  48.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  49.         
  50.         // now the get the type wanted - optional
  51.     reqType = typeChar;    // Default to char
  52.     (void)AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType, &returnedType,
  53.                                                 (Ptr)&reqType, sizeof(reqType), &actualSize);
  54.         
  55.     err = GotRequiredParams(theAppleEvent);
  56.     if (noErr != err) goto done;
  57.     
  58.     if (typeNull != directObj.descriptorType)
  59.         err = GetDataSizeDesc(&directObj, reqType, &result);
  60.     else
  61.         err = errAENoSuchObject;
  62.         
  63.     err = AddResultToReply(&result, reply, err);
  64.  
  65. done:    
  66.     if (directObj.dataHandle) 
  67.         AEDisposeDesc(&directObj);
  68.     if (result.dataHandle) 
  69.         AEDisposeDesc(&result);
  70.             
  71.     return(err);
  72. } // DoGetDataSize
  73.  
  74.  
  75. OSErr    GetDataSizeTextToken(TextToken* theToken, AEDesc* result)
  76. {
  77.     long    aSize;
  78.     OSErr    err;
  79.     
  80.     aSize = theToken->tokenLength;
  81.     
  82.     err = AECreateDesc(typeLongInteger, (Ptr)&aSize, sizeof(aSize), result);
  83.  
  84.     return(err);
  85. }
  86.  
  87. OSErr    GetDataSizeTextDesc(AEDesc* textDesc, AEDesc* result)
  88. {
  89.     TextToken        aTextToken;
  90.     Size            actualSize;
  91.     OSErr            err;
  92.  
  93.     if (typeMyText != textDesc->descriptorType)
  94.         return(errAETypeError);
  95.         
  96.     GetRawDataFromDescriptor(textDesc, (Ptr)&aTextToken, sizeof(aTextToken), &actualSize);
  97.  
  98.     err = GetDataSizeTextToken(&aTextToken, result);
  99.     
  100.     return(err);
  101. }
  102.  
  103. OSErr    GetDataSizeDesc(AEDesc* aDesc, DescType reqType, AEDesc* result)
  104. {
  105.     AEDesc        dataSizeDesc = {typeNull, NULL},
  106.                 textDesc = {typeNull, NULL},
  107.                 itemDesc = {typeNull, NULL},
  108.                 itemResult = {typeNull, NULL};
  109.     long        itemCount,
  110.                 index;
  111.     DescType    theAEKeyword;
  112.     OSErr        err;
  113.     
  114.     if (typeObjectSpecifier == aDesc->descriptorType)
  115.         err = AEResolve(aDesc, kAEIDoMinimum, &dataSizeDesc);
  116.     else
  117.         err = AEDuplicateDesc(aDesc, &dataSizeDesc);
  118.         
  119.     if (noErr != err) goto done;
  120.     
  121.     if (typeAEList == dataSizeDesc.descriptorType)
  122.     {
  123.         err = AECreateList(NULL, 0 , false, result);    // Result will also be a list of items
  124.         if (noErr != err) goto done;
  125.         err = AECountItems(&dataSizeDesc, &itemCount);
  126.         if (noErr != err) goto done;
  127.         
  128.         for (index = 1; index <= itemCount; index++)
  129.         {
  130.             err = AEGetNthDesc(&dataSizeDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  131.             if (noErr != err) goto done;
  132.             
  133.             err = GetDataSizeDesc(&itemDesc, reqType, &itemResult);    // Call recursively
  134.             if (noErr != err) goto done;
  135.             
  136.             err = AEPutDesc(result, 0, &itemResult);    // Add to our result list
  137.             if (noErr != err) goto done;
  138.  
  139.             if (itemDesc.dataHandle)
  140.                 AEDisposeDesc(&itemDesc);
  141.             if (itemResult.dataHandle)
  142.                 AEDisposeDesc(&itemResult);
  143.         }
  144.     }
  145.     else
  146.     {
  147.         switch (reqType)
  148.         {
  149.             case typeChar:
  150.                 err = AECoerceDesc(&dataSizeDesc, typeMyText, &textDesc);
  151.                 if (noErr != err) goto done;
  152.                 err = GetDataSizeTextDesc(&textDesc, result);
  153.                 break;
  154.                 
  155.             default:
  156.                 err = errAECantSupplyType;
  157.         }
  158.     }
  159.     
  160. done:
  161.     if (dataSizeDesc.dataHandle)
  162.         AEDisposeDesc(&dataSizeDesc);
  163.     if (textDesc.dataHandle)
  164.         AEDisposeDesc(&textDesc);
  165.     if (itemDesc.dataHandle)
  166.         AEDisposeDesc(&itemDesc);
  167.     if (itemResult.dataHandle)
  168.         AEDisposeDesc(&itemResult);
  169.     
  170.     return(err);
  171. }
  172.